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BEGIN 


' 
SRR REAR AAA REE AAA AAEAAAAAEAEEE HEE HEAEREETATAAAAKAKARHAARAAAERARAAA EES 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie res SOF TWARE fs oiter UNDER A LICENSE — MAY BE USED AND corres 
ONLY IN ACCORDANCE W THE TERMS OF SUCH LIC AN THE 
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® 
& 
® 
® 
® 
® 
oe 
® 
i ROV H ’ 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ies TRANSFERRED. * 

wy 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. ° 

® 
i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 

® 
' * 
SRR RAE RAE AAR AA REAR ERA EAA AEA 
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! 
! 
! 
! 
ABSTRACT: 
st 44 This routine implements the DEACCESS function. 
0059 ENVIRONMENT : 
0041 ‘ STARLET operating system, including privileged system services 
94 ! and internal exec routines. 
004 ! 
& 044 bee 
5 045 ! 
6 0046 ‘ 
i Ope AUTHOR: Andrew C. Goldstein, CREATION DATE: 6-Jan-1977 23:29 
9 0049 1 | MODIFIED BY: 
0 Boas ! 
1 051 ! v03-002 noi s4 L. Mark Pilant, 14- -sen~ 196) 11:06 
¢ O36 : Elimitate the write header protection check as it 
05 ! ongner not done (for a create) or done elsewhere ar 
en ae os 
6 026 ! v03-001 ACG0343 Andrew C. Goldstein 19-Jul-1983 16:53 
7 005 : Inhibit revision count if NORECORD {s specified 
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; 1! 

3 2 2 1! v02=-002 ACG0247 Andrew C. Goldstein. 

3 ° : Update file revision count only if writt 
; «s 808 1! v02-001 ACG0245 Andrew C. Goldstein, 

3 o7 6 : } Moving queueing of spect file to cleanup 
3s 65 = v02-000 ACG0167 Andrew C. Goldstein 

> 66 0066 1: Previous revision history moved to F11A.R 
;--' a 067 1 !e* 

; 068 1 

; 9 069 1 

4 0 070 1 LIBRARY ‘SYSSLIBRARY:LIB.L32'; 

3 71 0071 1 REQUIRE ‘SRC$:FCPDEF.B32'; 


oa3ep-19be 19:35:29 


eS-dec=t96" 
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GLOBAL ROUTINE DEACCESS = 


'o4¢ 


FUNCTIONAL DESCRIPTION: 


This routine implements the DEACCESS function. 
If an attribute List is present, attributes are written. 


CALLING SEQUENCE: 
DEACCESS () 


INPUT PARAMETERS: 
NONE 

IMPLICIT pervit: 
I0_PACKET: 1/0 packet in process 
CURRENT_WINDOW: window of file 
PRIMARY_FCB: FCB of file 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
file deaccessed 
FCB may be deleted 
header may be modified 


BEGIN 
LOCAL 
- local copy of truncate lock count 
ABD : REF BBLOCKVECTOR C ABDSC Ple NGTHJ, 
' b built fer descriptors 
FIB : REF BBLOCK, ' Ff 
: REF BBLOCK, ! 4 ee to FCB 

HEADER : REF BBLOCK, ! file header 

IDENT_AREA : REF BBLOCK; ! header ident area 
EXTERNAL 


CLEANUP_FLAGS : BITVECTOR, ! cleanup action flags 
USER STATUS : VECTOR, ! 1/0 status going back to user 
10_P ‘oy : REF BBLOCK, ! 1/0 packet nN process 
FICE FADER : REF BBLOCK, ! global pointer to current file header 
CURRENT WINDOW : REF BBLOCK, ! window of file 
RIMARY_FCB : REF BBLOCK, ' FCB of file 
CURRENT vcB : REF BBLOCK; ' VCB of volume 


EXTERNAL ROUTINE 


RCIDEACCS 832; 39 
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6-Sep-1984 00:55:5 VAX-11 Bliss-32 V4.0-742 Pa 4 

ae 90:39:39 DISKSVMSMASTER:CF11A.SRCIDEACCS.832;1 we (2) 
et FIB of request 

Peed 8° header 

mark buffer for write-back 

get date and time string 

write attributes routine 


GET_FIB 
READ_HEADER, 
MARK_DIRTY, 
GET_TIME 
WRITE_AT{RIB, 
TRUNCATE truncate file 
UPDATE FB, !' update contents of FCB 
CHECKSOM; ' compute file header checksum 
rt the cleanup flags to cause the deaccess to occurr. 
' 
4 


ae 


ME wn— 
FRESE R 
PREEESE 

Ew 


sts 
450 

8 0451 

9 preg 

0 045 

1 pte nd the buffer descriptor and FIB. 

i 3628 

4 045 CLEANUP_FLAGSCCLF_ZCHANNEL) = 1; 

5 bees CLEANUP_FLAGSLCLF_DEACCESS) = 1; 

6 0459 CLEANUPFLAGSCCLF-DELWINDOW) = 1; 

8 0461 ! reirter to buffer descriptors 
9 0462 ABD = .BBLOCK C.10 PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPTI; 

0 046. FIB = GET_FIB (.ABB); 

1 pees FCB = .PRIMARY_FCB; 

é 0466 ! Make sure irrelevant parameters are not present. 

4 0467 ! 

5 0468 

6 IF .FIBCFIBSV_EXTENDJ 

i THEN ERR_STATOS (SS$_BADPARAM) ; 

9 ! If the file is accessed for write, or if the file is marked for delete 


and this is the last access, read the header. 


IF . CURRENT WINDOWCWCBSV_WRITE) 

OR ror coLr tp y pee ld OR .CLEANUP_FLAGSCCLF_SPOOLF ILEJ) 
AND .FCBLFCB$W_ACNTJ EQL 1) 

THEN HEADER = READ_HEADER (0, .FCB); 


! If this the Last deaccess from a file marked for delete, delete the file. 
: If the file is a spool file, send it to the job controller. 


MEWN —OOONOUSWN—O0 


If _ .FCBCFCBSW_ACNT) EQL 1 
THEN 
BEGIN 


sooo 


IF _.FCBCFCBSV_MARKDEL) 
THEN CLEANUP_FLAGSCCLF_DELFILE) = 1; 


IF _ .CLEANUP PL aest our SPOOLF ILEJ 


an CLEANUP_FLAGSCCLF_DOSPOOL) = 1; 


Mw 


: Do deaccess processing for a write accessed file. 
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IF .CURRENT_WINDOWCWCBSV_WRITE) 
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THEN 
BEGIN 
MARK_DIRTY (.HEADER); 


COCO 


! Increment the revision count of the file. If a deaccess lock was 
' requested on the file, set the lock bit. Then process the write 
ne ys if any. 1f attributes were written, then clear the 

' loc 

' 


IF NOT .FIBCFIBSV_NORECORDI 
AND (.CURRENT_WINDOWCWCBSL_WRITES] NEQ 0 

OR .10_PACKETCIRPS$W_BCNT] GTR ABDSC_ATTRIB 
ae OR .FIBCFIB$SV_TRUNCI) 


IDENT_AREA = .HEADER + HEADERCFHTSB IDOFFSETI®2; 
IDENT-AREACF11$W_REVISION] = .IDENT AREACFI1$W_REVISION] + 1; 
T_TIME (IDENT_AREALFI1$T_REVDATEJ); 


IF_.CURRENT_WINDOWCWCBS$V_DLO<K] 
THEN HEADERTFHISV_LOCKED] = 1; 


IF .10_PACKETCIRPSW_BCNTJ GTR ABDSC_ATTRIB 
AMD ~USER_STATUSCOJ 


BEGIN 
WRITE_ATTRIB (.HEADER, .ABD, 0); 
WEADERLFHISV_LOCKED4 = 0; 


! If a truncate is requested, do it (if the file was write accessed). Note 
' that we must manually clear the truncate cleanup flag, since deaccess 
always exits through error exit. 


IF _ .FIBCFIBSV_TRUNCJ 
THEN 


BEGIN 
IF_ CURRENT VCBCVCBSV_NOALLOC] 
THEN ERR_EXTT (SS$_WRITLCK); 
CNTJ 


K = .FCBCFCBS$W_TCNT 
IF .CURRENT_WIRDOWCWCB$V_NOTRUNCJ 
THEN K = .K - 1; 
IF .K NEQ 
THEN ERR_EXIT (SS$_ACCONFLICT); 


CHECKSUM (.HEADER); 
TRUNCATE ( ea? HEADER Owe ecg ores)s 


SLSRRONES co vau PUN =SSELE PRONE SS LEAR OS ISSES 


WIFAREUS ASS 


CLEANUP_FLAGSCCLF_CLEANTR 
CLEANUP” FLAGSCCLF-FIXFCB) = 0; 
KERNEL CALL (UPDATE_FCB, .FILE_HEADER); 


QPUPUPV PUPP SUITS ITSP IESEIE I T ITS TITSTT IT TUTSTTSEUSTTSTST SS E IST SIASIST STS SISISIASISD 
SUL S SSS SEGA ALSSSVEAEUNSSSSSVSORON US Sanonrun-oSewenrorvrs 
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: 246 7 CHECKSUM (.HEADER); ! checksum the file header 

3 re 8 END; 

3 rf 4 269 : Return failure to let the error cleanup do the actual deaccessing. 

: 269 266 

; 250 8 6 RETURN 0; 

: 251 564 

; 252 0565 END; ! end of routine DEACCESS 
-TITLE DEAC ; 
-IDENT \V04-000\ 
eEXTRN CLEANUP_FLAGS, USER_STATUS 
-EXTRN I0_PACKET, FILE_ ER 
-EXTRN CURRENT WINDOW, PRIMARY_FCB 
TEXTRN CURRENT-VCB, GET FIB 
~EXTRN READ HERD MARR_DIRTY 


“EXTRN GET TIME, WRITE ATTRIB 
-EXTRN TRUNCATE, UPDATE _FCB 
[EXTRN CHECKSUM, SYSSCMRRNL 


-PSECT SCODES,NOWRT,2 


03FC 00000 .ENTRY DEACCESS, Save R2,R3,R4,R5,R6,R7,RB,RP : 0386 
59 00006 CF 9E 90002 MOVAB USER STATUS, R : 
58 0000G CF 9E 9009 MOVAB 10 PAC : 
57 00006 CF 9E 0000C MOVAB CURRENT WINDOW, R7 : 
56 90006 CF H 00011 MOVAB CLEANUP FLAGS, R6 : 
02 A6 0403 8F A8 00016 BISW2 #1027, CLEANUP_FLAGS+2 ; 0459 
50 68 DO 0001C MOVL 10 PACKET, RO + 0462 
55 2c B80 DO O00TF OVL  a42(R0), ABD ; 
55 DD 90023 PUSHL ABD + 0463 
00006 CF 01 FB 00025 CALLS #1, GET_FIB ; 
54 50 DO 0002A MOVL RO, FIB F 
52 00006 CF 00 900¢0 MOVL §PRIMARY_FCB, FCB + 0464 
16 A& 95 000 2 TSTB © 22 (F1B) + 0469 
06 18 0003 BGEQ : 
03 69 €9 037 BLBC - USER_STATUS, 1$ + 0470 
69 14 BO 0003A MOVW #20, USER_ STATUS F 
50 67 DO 00030 1$ MOVL CURRENT WINDOW, RO > 0476 
OF 0B AO 01 £0 00040 BBS , 11(R0), 3$ : 
04 22.2 01 £0 9045 BBS #1. 34(FCBS, 28 > 0477 
Sb 4A TSTB  CLEANUP_FLAGS : 
if 18 0004C BGEQ ; 
01 1A OA 81 O4E 2$ CMPW 30s 26 (FCB), #1 > 0478 
o¢ 2 0005 BNEQ 4$ ; 
DD 00054 3$ PUSHL FCB > 0479 
7E D4 006 CLRL. = (SP) ; 
00006 CF g FB 90) CALLS #2, READ_HEADER ; 
53 D 5D MOVL RO. HEADE : 
01 1A Ag B1 00060 4$ CMPW 6-26 (FCB), #1 + 0485 
1 if 64 BNEQ $ ; 
04 32 A2 gi 66 BBC Hi 34(FCB), 5$ > 0489 
Ab 0 : 0068 BISB2 #32, CLEANUP _FLAGS+2 : 0490 
56 O06F 5$ TST8 = CLEANUP_FLAGS > 0492 


K 16 
DEAC 16-Sep-1984 55:5 VAX-11 Bliss-32 V4.0-742 Page 7 
Mb <560 1o-808-1 382 90:33:39 DISKSVMSMASTER:CF11A.SRCIJDEACCS.B32;1 ~ a 
03 1 Al BGEQ = 6$ ; 
: 4 8 7 BISB2 #4, CLEANUP_FLAGS + 0493 
67 D 2 6$: MOVL CURRENT WINDOW, RO : 0499 
03 0B OA 1 : 07 BBS #i, 11(R0), 7$ : 
0086 1 Ove BRW 16$ : 
ny) 1 7$ PUSHL HEADER : 0502 
00006 CF 01 FB 00 3 CALLS #1, MARK_DIRTY : 
27 64 13 EO 00088 BBS #2i ' + 0511 
50 67 D O08¢ MOVL CURRENT WINDOW, RO ; 0512 
28 AO 05 O008F TSTL  40(RO) : 
5 OF 8 bp0%e eve «FO_PACKET, RO > 0513 
3s 32 i B1 ith CMPW bp eros. rh) : 
04 1A 00098 BGTRU 8s : 
12 17 Ab £9 0090 BLBC (FIB), 9$ : 051 
5 63 9A OO00A1 8S: MOVZBL (HEADERS, RO : 051 
50 6340 3E 0004 OVAW (HEADER)EROJ, IDENT_AREA : 
0A AO ee 00A8 INCW TQCIDENT AREA) : 051 
0c AO 9F 000 PUSHAB 12( IDENT AREA) : 051 
0000G CF 01 FB OO0A CALLS #1, GET_TIME : 
50 67 DO 00083 9S: MOVL § CURRENT WINDOW, RO + 0522 
05 14 A0 01 Et 00086 BBC #1, 20(R0), 108 : 
oC A 40 8F &88 0008 BISB2 #64, 12(HEADER) : 0523 
50 68 00 990¢ 10$: MOVL 10 PACKET, RO > 0525 
05 32. AO 81 000C CMPW OTRO), #5 : 
11 1B 000C7 BLEQU 11$ : 
OE 69 €9 000C9 LBC + USER_STATUS, 11$ > 0526 
7E D4 d90c¢ CLRL = = (SPT : 0529 
28 6B OOOCE PUSHR #*M<R3,R5> : 
00006 CF 03 FB 00000 CALLS #3, WRITE_ATTRIB ; 
oC AS 40 8F 8A 00005 BICB2 we 12 (HEADER) : 0530 
52 17 Ad €9 OOODA 11$: LBC 23(FIB), 15$ : 053 
50 00006 CF DO 00005 MOVL CURRENT VCB, RO + 0541 
05 0B AO 04 £1 000E BBC 4, 11(R0), ; 
025c 8F BF O00ES CHMU #604 + 0542 
04 OO00EC RET : 
51 20 A2 3C OOOED 128: MOVZWL 32(FCB), K > 0544 
50 67 DO OO0F1 MOVL CURRENT WINDOW, RO ; 0545 
02 15 Ad 95 E1 OOOF4 BBC #3, 21(RO), 138 ; 
1 07 000F9 DECL > 0546 
51 D3 OOOFB 13$:  §TSTL > 0547 
05 13 OOOFD BEQL 148 : 
0800 8F Be OOFF CHMU #2048 > 0548 
4 0103 RET : 
53 DD 00104 14$:  PUSHL HEADER : 0550 
00006 CF 01 FB 00106 CALLS #1, CHECKSUM : 
1 DD 00108 PUSHL > 0551 
3 DD 00100 PUSHL HEADER : 
4 DD 0010F PUSHL FIB F 
00006 CF 3 FB 00111 CALLS @# TRUNCATE : 
£4 00080002 F CA 00116 BICL2 #524290, CLEANUP_FLAGS : 0552 
0000G CF 0D 0011D PUSHL FILE_HEADER > 0554 
g1 DD 00121 PUSHL #1 ; 
é BD 01 3 PUSHL SP : 
00006 CF 9F 001 PUSHAB UPDATE_FCB : 
000000006 9F 4 FB 00129 CALLS #4, a#SYSSCMKRNL ; 
3 DD 00130 15$ PUSHL HEADER > 0557 


; Run Time : 
; pti ee Tae: 00:27. 
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18-Sep-1 4 5:5 VAX-11 Bliss-32 V4.0- 
1e-8ep 1 138 99: 33; 3§ DISKSVMSMASTER:CFIIA. 
0000G CF 1 CALLS #1, CHECKSUM 
80 be € 90137 16s: 16s: ELRL RO 
0139 RET 
; Routine Size: 314 bytes, Routine Base: $CODE$ + 0000 
0566 1 
£994 1 END 
568 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 314 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
coeecece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped ime 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 24 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DEACCS/OBJ=OBJ$:DEACCS MSRC$:DEACCS/UPDATE=(ENH$:DEACCS) 
516 code + 0 data bytes 


; Lines/CPU Min: 3495 
: eet A ag 14978 


Used: 144 pages 


3 mee! he rag Complete 


JDEACCS.B32; ; 
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